home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t9.d64 / big set.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  340 lines
  1. 5 REM" **** CREATED BY GRAEME BENNETT ****
  2. 10 [153]"LOAD   BASIC LOADER FOR THE OPTIMIZER          DOUBLE-SIZE CHARACTER SET
  3. 15 PRINT"   TO USE: TYPE THE LETTER, THEN           THE SHIFTED CHARACTER. MOVE
  4. 20 [153]"   THE CURSOR DOWN TO THE NEXT LINE,       (LOWER LEFT) AND TYPE 'RVS ON'
  5. 25 PRINT"   REPEAT STEPS 1 & 2. FOR EXAMPLE, A      LETTER 'A' WILL HAVE THIS SHAPE:
  6. 30 [153]"                  AATN                                      AATNWAIT"
  7. 35 [153]"   HIT ANY KEY TO BEGIN READING DATA    WAIT"
  8. 40 [161]A$:[139]A$[178]""[167]40
  9. 45 [153]"LOAD         ONE MOMENT, PLEASE"
  10. 47 [151]52,48:[151]56,48:[156]
  11. 50 [129]A[178]12288[164]14335:[135]D:[151]A,D:[130]
  12. 55 [153]"LOADTO ENABLE THE OPTIMIZER SET, HIT RETURN "
  13. 60 [153]"    O(null)P(null)T(null)IMN(null)IZ(null)EVALR(null)                       O(null)P(null)T(null)IMN(null)IZ(null)EVALR(null)WAIT"
  14. 90 [153]"POKE 53272,(PEEK(53272)AND240)+12":[153]"ONONON        CMDCMDCMDCMDCMDCMDCMDCMDCMD"
  15. 100 [131]60,102,110,110,96,96,62
  16. 101 [131]0,15,7,3,1,0,0
  17. 102 [131]15,31,255,255,255,255,0
  18. 103 [131]0,255,255,7,31,63,127
  19. 104 [131]124,248,248,248,255,255,255
  20. 105 [131]255,0,0,248,248,255,255
  21. 106 [131]255,255,0,0,255,255,255
  22. 107 [131]255,255,255,0,0,255,255
  23. 108 [131]7,31,63,127,124,248,248
  24. 109 [131]248,248,248,248,248,0,0
  25. 110 [131]255,255,126,126,126,126,0
  26. 111 [131]0,126,126,63,63,63,63
  27. 112 [131]0,0,63,63,248,248,248
  28. 113 [131]249,3,7,255,255,252,252
  29. 114 [131]252,252,0,0,252,252,255
  30. 115 [131]255,255,255,0,0,248,248
  31. 116 [131]255,255,255,255,0,0,62
  32. 117 [131]62,15,7,1,0,62,124
  33. 118 [131]248,248,255,255,255,255,0
  34. 119 [131]0,255,255,7,31,63,127
  35. 120 [131]124,248,248,248,255,255,255
  36. 121 [131]255,0,0,255,255,15,7
  37. 122 [131]1,0,0,0,0,0,255
  38. 123 [131]255,255,255,0,0,124,124
  39. 124 [131]248,248,252,126,127,63,31
  40. 125 [131]7,248,248,124,124,62,62
  41. 126 [131]31,31,252,252,252,254,127
  42. 127 [131]127,63,31,248,248,124,124
  43. 128 [131]62,63,31,31,248,248,124
  44. 129 [131]124,62,62,31,31,255,255
  45. 130 [131]255,255,0,0,1,3,60
  46. 131 [131]48,48,48,48,48,60,0
  47. 132 [131]14,16,48,254,48,96,255
  48. 133 [131]0,60,12,12,12,12,12
  49. 134 [131]60,0,0,24,60,126,24
  50. 135 [131]24,24,24,0,16,48,127
  51. 136 [131]127,48,16,0,0,0,0
  52. 137 [131]0,0,0,0,0,192,192
  53. 138 [131]192,192,0,0,192,192,252
  54. 139 [131]254,255,255,0,0,63,126
  55. 140 [131]252,254,255,255,0,0,255
  56. 141 [131]254,124,248,240,224,192,128
  57. 142 [131]255,255,254,254,254,254,0
  58. 143 [131]0,254,255,224,192,128,0
  59. 144 [131]0,0,62,31,255,255,255
  60. 145 [131]254,0,0,248,240,252,254
  61. 146 [131]255,255,63,63,255,254,240
  62. 147 [131]248,252,254,63,31,31,31
  63. 148 [131]0,102,60,255,60,102,0
  64. 149 [131]0,0,24,24,126,24,24
  65. 150 [131]0,0,0,0,0,0,0
  66. 151 [131]24,24,48,0,0,0,126
  67. 152 [131]0,0,0,0,0,0,0
  68. 153 [131]0,0,24,24,0,0,3
  69. 154 [131]6,12,24,48,96,0,7
  70. 155 [131]31,63,127,124,248,248,248
  71. 156 [131]31,63,127,255,0,0,63
  72. 157 [131]63,7,31,31,15,4,0
  73. 158 [131]0,0,127,127,127,127,0
  74. 159 [131]0,127,127,0,0,1,3
  75. 160 [131]7,15,31,63,255,255,255
  76. 161 [131]255,0,0,255,255,3,7
  77. 162 [131]15,31,62,124,248,248,3
  78. 163 [131]7,15,31,62,124,248,248
  79. 164 [131]7,31,63,127,124,124,127
  80. 165 [131]63,15,31,63,127,252,248
  81. 166 [131]248,248,0,0,24,0,0
  82. 167 [131]24,0,0,0,0,24,0
  83. 168 [131]0,24,24,48,14,24,48
  84. 169 [131]96,48,24,14,0,0,0
  85. 170 [131]126,0,126,0,0,0,112
  86. 171 [131]24,12,6,12,24,112,0
  87. 172 [131]60,102,6,12,24,0,24
  88. 173 [131]0,0,0,0,255,255,0
  89. 174 [131]0,0,128,192,192,224,224
  90. 175 [131]240,240,248,252,254,255,255
  91. 176 [131]63,63,255,254,254,254,254
  92. 177 [131]254,0,0,0,0,248,252
  93. 178 [131]254,255,63,31,31,31,254
  94. 179 [131]254,254,254,0,0,254,254
  95. 180 [131]254,254,254,254,0,0,254
  96. 181 [131]254,254,254,254,254,0,0
  97. 182 [131]254,254,62,62,62,62,0
  98. 183 [131]0,254,254,192,192,192,192
  99. 184 [131]192,0,0,192,31,31,31
  100. 185 [131]31,0,0,31,31,31,62
  101. 186 [131]124,248,0,0,192,224,0
  102. 187 [131]0,0,0,0,0,0,0
  103. 188 [131]248,252,254,255,63,31,31
  104. 189 [131]31,248,252,254,255,63,31
  105. 190 [131]31,31,224,248,252,254,62
  106. 191 [131]31,31,31,252,254,255,255
  107. 192 [131]63,63,255,254,224,248,252
  108. 193 [131]254,62,31,31,31,252,254
  109. 194 [131]255,255,63,63,255,254,192
  110. 195 [131]224,240,248,124,62,31,31
  111. 196 [131]255,255,255,255,0,0,0
  112. 197 [131]0,31,31,31,31,0,0
  113. 198 [131]31,31,31,31,62,62,124
  114. 199 [131]248,248,240,31,31,31,31
  115. 200 [131]0,0,31,31,31,31,62
  116. 201 [131]62,124,248,248,248,31,31
  117. 202 [131]31,15,128,192,255,255,255
  118. 203 [131]255,255,254,0,0,248,240
  119. 204 [131]24,24,24,255,255,24,24
  120. 205 [131]24,192,192,48,48,192,192
  121. 206 [131]48,48,24,24,24,24,24
  122. 207 [131]24,24,24,0,0,3,62
  123. 208 [131]118,54,54,0,255,127,63
  124. 209 [131]31,15,7,3,1,0,0
  125. 210 [131]0,0,0,0,0,0,240
  126. 211 [131]240,240,240,240,240,240,240
  127. 212 [131]0,0,0,0,255,255,255
  128. 213 [131]255,255,255,0,0,0,0
  129. 214 [131]0,0,0,0,0,0,0
  130. 215 [131]0,0,255,192,192,192,192
  131. 216 [131]192,192,192,192,204,204,51
  132. 217 [131]51,204,204,51,51,3,3
  133. 218 [131]3,3,3,3,3,3,0
  134. 219 [131]0,0,0,204,204,51,51
  135. 220 [131]255,254,252,248,240,224,192
  136. 221 [131]128,3,3,3,3,3,3
  137. 222 [131]3,3,24,24,24,31,31
  138. 223 [131]24,24,24,0,0,0,0
  139. 224 [131]15,15,15,15,24,24,24
  140. 225 [131]31,31,0,0,0,0,0
  141. 226 [131]0,248,248,24,24,24,0
  142. 227 [131]0,0,0,0,0,255,255
  143. 228 [131]225,250,252,254,62,63,95
  144. 229 [131]159,192,192,192,192,0,0
  145. 230 [131]192,192,252,254,255,255,0
  146. 231 [131]0,63,126,252,254,255,255
  147. 232 [131]0,0,255,254,224,192,128
  148. 233 [131]0,0,0,255,255,254,254
  149. 234 [131]254,254,0,0,248,254,224
  150. 235 [131]192,128,0,0,62,31,31
  151. 236 [131]255,255,255,254,0,0,248
  152. 237 [131]240,252,254,255,255,63,63
  153. 238 [131]255,254,0,0,0,0,0
  154. 239 [131]255,255,255,3,3,3,3
  155. 240 [131]3,3,255,255,0,0,0
  156. 241 [131]0,240,240,240,240,15,15
  157. 242 [131]15,15,0,0,0,0,24
  158. 243 [131]24,24,248,248,0,0,0
  159. 244 [131]240,240,240,240,0,0,0
  160. 245 [131]0,240,240,240,240,15,15
  161. 246 [131]15,15,195,153,145,145,159
  162. 247 [131]159,193,255,62,62,124,124
  163. 248 [131]255,255,255,255,255,255,0
  164. 249 [131]0,255,255,255,255,248,248
  165. 250 [131]248,124,127,63,31,7,248
  166. 251 [131]248,248,248,255,255,255,255
  167. 252 [131]255,255,248,248,255,255,255
  168. 253 [131]255,255,255,248,248,248,248
  169. 254 [131]248,248,248,248,248,124,127
  170. 255 [131]63,31,7,255,255,248,248
  171. 256 [131]248,248,248,248,126,126,126
  172. 257 [131]126,126,126,126,126,0,0
  173. 258 [131]0,3,127,127,127,126,255
  174. 259 [131]255,251,249,248,248,248,248
  175. 260 [131]248,248,248,248,255,255,255
  176. 261 [131]255,248,248,248,248,248,248
  177. 262 [131]248,248,62,62,62,62,62
  178. 263 [131]62,62,62,248,248,248,124
  179. 264 [131]127,63,31,7,255,255,248
  180. 265 [131]248,248,248,248,248,248,248
  181. 266 [131]248,124,62,0,3,7,255
  182. 267 [131]255,0,0,0,0,0,0
  183. 268 [131]0,0,0,3,127,127,127
  184. 269 [131]126,124,124,124,126,127,63
  185. 270 [131]31,15,248,248,248,124,127
  186. 271 [131]63,31,7,15,15,7,7
  187. 272 [131]3,3,1,1,249,249,248
  188. 273 [131]252,255,127,63,31,15,15
  189. 274 [131]62,62,124,124,248,248,255
  190. 275 [131]126,126,126,126,126,126,126
  191. 276 [131]7,15,31,63,127,255,255
  192. 277 [131]255,195,207,207,207,207,207
  193. 278 [131]195,255,241,239,207,1,207
  194. 279 [131]159,0,255,195,243,243,243
  195. 280 [131]243,243,195,255,255,231,195
  196. 281 [131]129,231,231,231,231,255,239
  197. 282 [131]207,128,128,207,239,255,31
  198. 283 [131]31,31,62,254,252,248,224
  199. 284 [131]192,192,192,192,192,192,192
  200. 285 [131]192,62,124,248,240,255,255
  201. 286 [131]255,255,254,255,63,63,255
  202. 287 [131]254,252,240,255,255,0,0
  203. 288 [131]248,248,248,248,254,255,63
  204. 289 [131]63,255,254,252,240,31,31
  205. 290 [131]31,63,254,252,248,240,124
  206. 291 [131]248,240,240,224,224,192,192
  207. 292 [131]254,255,63,63,255,254,252
  208. 293 [131]240,31,62,124,120,240,224
  209. 294 [131]192,128,255,153,195,0,195
  210. 295 [131]153,255,255,255,231,231,129
  211. 296 [131]231,231,255,255,255,255,255
  212. 297 [131]255,255,231,231,207,255,255
  213. 298 [131]255,129,255,255,255,255,255
  214. 299 [131]255,255,255,255,231,231,255
  215. 300 [131]255,252,249,243,231,207,159
  216. 301 [131]255,248,249,250,124,127,63
  217. 302 [131]95,135,62,62,62,62,62
  218. 303 [131]62,62,62,7,15,31,63
  219. 304 [131]127,255,255,255,255,255,0
  220. 305 [131]0,255,255,255,255,127,255
  221. 306 [131]0,0,0,0,0,0,255
  222. 307 [131]255,0,0,255,255,255,255
  223. 308 [131]248,248,248,252,127,63,31
  224. 309 [131]15,248,248,248,124,127,63
  225. 310 [131]31,15,252,248,248,252,255
  226. 311 [131]127,63,31,248,124,0,0
  227. 312 [131]0,1,3,7,255,255,231
  228. 313 [131]255,255,231,255,255,255,255
  229. 314 [131]231,255,255,231,231,207,241
  230. 315 [131]231,207,159,207,231,241,255
  231. 316 [131]255,255,129,255,129,255,255
  232. 317 [131]255,143,231,243,249,243,231
  233. 318 [131]143,255,195,153,249,243,231
  234. 319 [131]255,231,255,254,252,0,0
  235. 320 [131]0,0,0,0,248,248,124
  236. 321 [131]124,254,254,255,255,254,255
  237. 322 [131]63,63,255,254,252,240,0
  238. 323 [131]0,0,0,255,255,255,255
  239. 324 [131]31,31,31,62,254,252,248
  240. 325 [131]224,254,254,0,0,254,254
  241. 326 [131]254,254,254,254,0,0,0
  242. 327 [131]0,0,0,255,255,0,0
  243. 328 [131]254,252,248,224,254,254,62
  244. 329 [131]62,62,62,62,62,192,192
  245. 330 [131]192,192,192,192,192,192,31
  246. 331 [131]31,31,62,254,252,248,224
  247. 332 [131]224,224,240,248,252,126,63
  248. 333 [131]31,0,0,0,0,254,254
  249. 334 [131]254,254,31,31,31,31,31
  250. 335 [131]31,31,31,124,124,124,124
  251. 336 [131]124,124,124,124,31,31,31
  252. 337 [131]62,254,252,248,224,254,252
  253. 338 [131]0,0,0,0,0,0,31
  254. 339 [131]31,31,62,126,252,248,224
  255. 340 [131]254,252,126,63,31,31,31
  256. 341 [131]31,62,31,31,62,254,252
  257. 342 [131]248,224,0,0,0,0,255
  258. 343 [131]255,255,255,31,31,31,62
  259. 344 [131]254,252,248,224,248,248,240
  260. 345 [131]240,224,224,192,192,159,159
  261. 346 [131]159,62,254,252,248,224,224
  262. 347 [131]224,240,248,252,126,63,31
  263. 348 [131]224,192,192,192,192,192,192
  264. 349 [131]192,224,192,128,0,254,254
  265. 350 [131]254,254,231,231,231,0,0
  266. 351 [131]231,231,231,63,63,207,207
  267. 352 [131]63,63,207,207,231,231,231
  268. 353 [131]231,231,231,231,231,255,255
  269. 354 [131]252,193,137,201,201,255,0
  270. 355 [131]128,192,224,240,248,252,254
  271. 356 [131]255,255,255,255,255,255,255
  272. 357 [131]255,15,15,15,15,15,15
  273. 358 [131]15,15,255,255,255,255,0
  274. 359 [131]0,0,0,0,0,255,255
  275. 360 [131]255,255,255,255,255,255,255
  276. 361 [131]255,255,255,0,0,63,63
  277. 362 [131]63,63,63,63,63,63,51
  278. 363 [131]51,204,204,51,51,204,204
  279. 364 [131]252,252,252,252,252,252,252
  280. 365 [131]252,255,255,255,255,51,51
  281. 366 [131]204,204,0,1,3,7,15
  282. 367 [131]31,63,127,252,252,252,252
  283. 368 [131]252,252,252,252,231,231,231
  284. 369 [131]224,224,231,231,231,255,255
  285. 370 [131]255,255,240,240,240,240,231
  286. 371 [131]231,231,224,224,255,255,255
  287. 372 [131]255,255,255,7,7,231,231
  288. 373 [131]231,255,255,255,255,255,255
  289. 374 [131]0,0,31,31,31,62,254
  290. 375 [131]252,248,224,192,192,192,192
  291. 376 [131]192,192,192,192,62,124,248
  292. 377 [131]240,255,255,255,255,254,255
  293. 378 [131]63,63,255,254,252,240,255
  294. 379 [131]255,255,0,0,248,248,248
  295. 380 [131]31,31,31,31,31,31,31
  296. 381 [131]31,62,31,31,63,255,254
  297. 382 [131]252,240,62,31,31,63,254
  298. 383 [131]252,248,224,0,0,0,255
  299. 384 [131]255,255,255,255,255,255,255
  300. 385 [131]255,255,0,0,0,252,252
  301. 386 [131]252,252,252,252,0,0,255
  302. 387 [131]255,255,255,15,15,15,15
  303. 388 [131]240,240,240,240,255,255,255
  304. 389 [131]255,231,231,231,7,7,255
  305. 390 [131]255,255,255,0,0,0,0
  306. 391 [131]255,255,255,0,0,0,0
  307. 392 [131]0,0,0,0,0,0,0
  308. 395 [128]
  309. 400 [143]*DATA WRITER*
  310. 410 [133]"START LINE #   CMDCMDCMD";S$:[139]S$[178]" "[167]410
  311. 420 [133]"STEP   CMDCMDCMD";T$:[139]T$[178]" "[167]420
  312. 430 [133]"START ADDRESS (DECIMAL)   CMDCMDCMD";B$:[139]B$[178]" "[167]430
  313. 440 [133]"END ADDRESS (DECIMAL)   CMDCMDCMD";E$:[139]E$[178]" "[167]440
  314. 450 S[178][197](S$):T[178][197](T$):B[178][197](B$):E[178][197](E$):F[178]B:L[178]F[170]6:[153]""
  315. 460 [151]831,[181](E[173]256)
  316. 470 [151]832,E[171][181](E[173]256)[172]256
  317. 480 [151]828,T:[137]570
  318. 490 T[178][194](828)
  319. 500 S[178][194](826)[172]256[170][194](827)
  320. 510 L[178][194](829)[172]256[170][194](830)
  321. 520 E[178][194](831)[172]256[170][194](832)
  322. 530 [139]L[177][178]E[167]680
  323. 550 F[178]L[170]1:L[178]L[170]7
  324. 560 [153]"ON                     "
  325. 570 [153]S;
  326. 580 [153]"DATA";
  327. 590 [129]P[178]F[164]L:[153][202]([196]([194](P)),2);",";:[130]P
  328. 600 [153]"CMD "
  329. 610 [153]"GOTO490ONONONON"
  330. 620 [151]198,2:[151]631,13:[151]632,13
  331. 630 S[178]S[170]T
  332. 640 [151]826,[181](S[173]256)
  333. 650 [151]827,S[171][181](S[173]256)[172]256
  334. 660 [151]829,[181](L[173]256)
  335. 670 [151]830,L[171][181](L[173]256)[172]256:[128]
  336. 680 [128]
  337. 690 [172] LINES 400[171]680 ARE AN                    AU[164]MATIC [131] WRITING PROGRAM
  338. 700 [172] FROM COMMOD[176]E COMPUTING,[181]L.          UN[129]TUNATELY, THEIR [176]IGINAL
  339. 710 [172] DIDN'T ENTER THE [131] PROPERLY          THIS VERSION WRITES ITSELF!!
  340.